object ChkStrLstDlg: TChkStrLstDlg Left = 105 Top = 52 BorderStyle = bsDialog Caption = 'CheckListBox Items Editor' ClientHeight = 350 ClientWidth = 482 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object PnlToolbar: TPanel Left = 8 Top = 7 Width = 465 Height = 35 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object BtnCut: TSpeedButton Left = 8 Top = 5 Width = 25 Height = 25 Hint = 'Cut' Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777FF77777777FF770000778448777777844877777887F777777887F7 0000784774877778477487778F787F77778778F7000078477747777477748777 8F778F7778F778F700007847774777747774877787F78F7778F7787700007784 7748778477487777787F8FF778F787770000777844448844448777777788887F 888877770000777774444444477777777778888888877777000077777748FF84 777777777777887788F7777700007777778F00F07777777777778777787F7777 0000777778F77F07077777777778777F7787F777000077778F7708F770777777 77877788F7787F7700007778F770778F77077777787778778F7787F70000778F 77077778F77077778777877778F7787F000078F7707777778F770778F7787777 778F778F000078F70777777778F70778F78777777778F78F000078F077777777 778F0778F877777777778F8F0000788777777777777887788777777777777887 0000} NumGlyphs = 2 OnClick = BtnCutClick end object BtnCopy: TSpeedButton Left = 32 Top = 5 Width = 25 Height = 25 Hint = 'Copy' Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777FFFFFFFFF700007777770000000000777777777888888888F7 000077777787777777707777777778F7777778F700007777778FBFBFBF707777 777778F7777778F700007777778BFBFBFB707777777778F7777778F700007777 778FBFBFBF7077777FFFF8F7777778F700007000008BFBFBFB707777888888F7 777778F700007877778FBFBFBF7077778F7778F7777778F7000078FFFF8BFBFB FB7077778F7778F7777FF8F7000078FFFF8FBFBF000077778F7778F777888877 000078FFFF8BFBFB7F8777778F7778F7778F8777000078FFFF8FBFBF78777777 8F7778FFFF887777000078FFFF888888877777778F77788888877777000078FF FFFFFF07777777778F7777FF8F777777000078FFFFF00007777777778F777888 87777777000078FFFFF7F877777777778F7778F877777777000078FFFFF78777 777777778FFFF887777777770000788888887777777777778888887777777777 0000} NumGlyphs = 2 OnClick = BtnCopyClick end object BtnPaste: TSpeedButton Left = 56 Top = 5 Width = 25 Height = 25 Hint = 'Paste' Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777FFFF77777 77777777777FFF777777777700007FFF000887777777777777888FFF77777777 00007777778008777777777777778887F77FFF77000077777778F08000077777 7FFFF8787F8887F70000770000078F00F80077778888878787F7887F00007877 777778F0070B8778F7777778787F878F000078FFF777888F000F0778F777778F 8787878F000078FF7F778770708B0778F777778F7878778F000078FFF7778008 08F88778F777778FFF877787000078FF7F7788888B707778F777778888777877 000078FFF777787BF8077778F77777787FFF8777000078FF7F77788888777778 F777777788887777000078FFF777780777777778F77777778F777777000078FF FFF77807777777787FFFFFFF8777777700007788888888777777777788888888 7777777700007778FF7807777777777778FFFF8F777777770000777888888777 7777777778888887777777770000777777777777777777777777777777777777 0000} NumGlyphs = 2 OnClick = BtnPasteClick end object BtnUndo: TSpeedButton Left = 80 Top = 5 Width = 25 Height = 25 Hint = 'Undo' Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 04000000000068010000CE0E0000D80E00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777770000777777777777777777777777777777777777 0000777777777777777777777777777777777777000077000000000077777777 FFFFFFFFFF777777000078888888888077777778888888888F77777700007877 77777807777777787F777778F77777770000778777F7F807777777778F777778 F7777777000077877F7F8077777777778F77778F77777777000077877F7F8007 7777777787F7778FF777777700007778F7FFF8800777777778F777788FF77777 00007778F7FFFF7880000777787F7F77788FFFF7000077778F88FF7F78880777 778F88F7777888F7000077778F8087F77780777777878F8F77778F7700007777 78077877780777777778F778FF78F7770000777778077788780777777778F777 88F8F777000077777777777788077777777777777788F7770000777777777777 7877777777777777777877770000777777777777777777777777777777777777 0000} NumGlyphs = 2 OnClick = BtnUndoClick end object BtnFont: TSpeedButton Left = 200 Top = 5 Width = 25 Height = 25 Hint = 'Change Font...' Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777770000007777777777777777770000007777777777777777770000007777 7777777777777700000077777777777777777700000070000770007770007700 0000007007007007007007000000007007007007007777000000700007007007 0077770000007770070070070070070000007000770000777000770000007777 7700777777777700000077777700777777777700000077777000777777777700 0000777777777777777777000000777777777777777777000000777777777777 777777000000777777777777777777000000} OnClick = BtnFontClick end object cmdDelete: TSpeedButton Left = 112 Top = 5 Width = 25 Height = 25 Hint = 'Undo' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777777777777777F777777777777770777777F77777777877777077777777 777777787F7777777F77770007777777077777888F7777778777770007777770 777777888FF77778F7777770007777007777777888FF77887777777700077007 77777777888FF887777777777000007777777777788888777777777777000777 7777777777888FF7777777777000007777777777788888F77777777700077077 7777777F8887787FF7777700007777007777778888777788FF77700007777770 07777888877777788FF770077777777700777887777777778877777777777777 7777777777777777777777777777777777777777777777777777} NumGlyphs = 2 OnClick = cmdDeleteClick end object cmdDown: TSpeedButton Left = 144 Top = 5 Width = 25 Height = 25 Hint = 'Down' Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 04000000000068010000CE0E0000D80E00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777707777 777777777777787F7777777700007777778807777777777777778F87F7777777 000077777787807777777777777787787F777777000077777877780777777777 7778F77787F7777700007777787777807777777777787777787F777700007777 877F7F7807777777778F77777787F777000077778F7F777780777777778F7777 7778FF7700007777877FF78800077777778777777F88877700007778F7FFF800 8777777778F777778877777700007778777FF8077777777778FFFF778F777777 00007788008FF8077777777788888F778F77777700007777778F770877777777 77778F7787F7777700007777778F77807777777777778F7778F7777700007777 7787778087777777777787F7787F7777000077777778778808777777777778F7 778FF777000077777778788000777777777778F7F88877770000777777788008 8777777777777878877777770000777777780877777777777777778777777777 0000} NumGlyphs = 2 OnClick = cmdDownClick end object cmdUp: TSpeedButton Left = 168 Top = 5 Width = 25 Height = 25 Hint = 'Up' Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 04000000000068010000CE0E0000D80E00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777780877 7777777777777787FF777777000077777778800887777777777778F887FFF777 000077777778788000777777777778F778887777000077777778778808777777 777778777787777700007777778777808777777777778F7778F7777700007777 778F77807777777777778F777877777700007777778F7708777777777FFF8F77 8F77777700007788008FF80777777777888887778F77777700007778777FF807 77777777787777778FF7777700007778F7FFF80087777777787F7777887FFF77 00007777877FF78800077777778F777777888777000077778F7F777780777777 778F77777778777700007777877F7F78077777777787F7777787777700007777 78777780777777777778F7777877777700007777787778077777777777787F77 8777777700007777778780777777777777778F78777777770000777777880777 7777777777778787777777770000777777707777777777777777787777777777 0000} NumGlyphs = 2 OnClick = cmdUpClick end object CHKDefault: TCheckBox Left = 232 Top = 8 Width = 97 Height = 17 Caption = 'Default' TabOrder = 0 end end object BtnOk: TButton Left = 305 Top = 319 Width = 80 Height = 25 Caption = 'OK' ModalResult = 1 TabOrder = 2 OnClick = BtnOkClick end object BtnCancel: TButton Left = 393 Top = 319 Width = 80 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end object PnlStringList: TPanel Left = 8 Top = 48 Width = 465 Height = 261 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object LblCount: TLabel Left = 8 Top = 6 Width = 34 Height = 13 Caption = '0 Lines' end object Label1: TLabel Left = 384 Top = 6 Width = 23 Height = 13 Caption = 'Line:' end object LblLine: TLabel Left = 416 Top = 6 Width = 37 Height = 13 Alignment = taRightJustify AutoSize = False Caption = '1' end object grdEdit: TStringGrid Left = 8 Top = 28 Width = 445 Height = 225 ColCount = 2 DefaultRowHeight = 15 FixedCols = 0 RowCount = 2 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goTabs, goThumbTracking] PopupMenu = MnuEdit ScrollBars = ssVertical TabOrder = 0 OnClick = grdEditClick OnDblClick = grdEditDblClick OnDrawCell = grdEditDrawCell OnKeyDown = grdEditKeyDown OnKeyPress = grdEditKeyPress OnMouseDown = grdEditMouseDown OnMouseMove = grdEditMouseMove ColWidths = ( 40 389) end end object EdtStrings: TMemo Left = 72 Top = 312 Width = 141 Height = 37 PopupMenu = MnuEdit ScrollBars = ssBoth TabOrder = 4 Visible = False end object DlgFont: TFontDialog Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 7 Top = 311 end object MnuEdit: TPopupMenu Left = 35 Top = 311 object MnuUndo: TMenuItem Caption = '&Undo' ShortCut = 0 OnClick = BtnUndoClick end object MnuCut: TMenuItem Caption = 'Cu&t' ShortCut = 0 OnClick = BtnCutClick end object MnuCopy: TMenuItem Caption = '&Copy' ShortCut = 0 OnClick = BtnCopyClick end object MnuPaste: TMenuItem Caption = 'Paste' ShortCut = 0 OnClick = BtnPasteClick end end end